//   

;
{
  LCLICK -  ; LCLICK(10,10);
  RCLICK -  ; RCLICK(10,10);
  MCLICK -   ; MCLICK(10,10);
  DBLCLICK -   ; DBLCLICK(10,10);
  -;
  LDOWN -   ;	LDOWN(10,10);
  LUP -   ;		LUP(10,10);
  RDOWN -   ;	RDOWN(10,10);
  RUP -   ;		RUP(10,10);
  MDOWN -   ;	MDOWN(10,10);
  MUP -   ;		MUP(10,10);
  -;
  MOVE -  ;		MOVE(10,10);
  MOVER -   ;		MOVER(10,10);
  WHEELDOWN -   ;	WHEELDOWN;
  WHEELUP -   ;		WHEELUP;
}

;
{
   ;
  {
      #1 (0-9);	KEYPRESS(#1);
      #A (A-Z);	KEYPRESS(#A);
      #F1 (F1-F12);	KEYPRESS(#F1);
        -;
      #SHIFT;	KEYPRESS(#SHIFT);
      #CTRL;	KEYPRESS(#CTRL);
      #ALT;	KEYPRESS(#ALT);
      #WIN;	KEYPRESS(#WIN);
      #RWIN;	KEYPRESS(#RWIN);
        -;
      #ENTER;	KEYPRESS(#ENTER);
      #SPACE;	KEYPRESS(#SPACE);
      #TAB;	KEYPRESS(#TAB);
      #BACKSPACE;	KEYPRESS(#BACKSPACE);
      #ESC;	KEYPRESS(#ESC);
        -;
      #PAGEUP;	KEYPRESS(#PAGEUP);
      #PAGEDOWN;	KEYPRESS(#PAGEDOWN);
      #HOME;	KEYPRESS(#HOME);
      #END;	KEYPRESS(#END);
      #INSERT;	KEYPRESS(#INSERT);
      #DELETE;	KEYPRESS(#DELETE);
        -;
      #UP;	KEYPRESS(#UP);
      #DOWN;	KEYPRESS(#DOWN);
      #LEFT;	KEYPRESS(#LEFT);
      #RIGHT;	KEYPRESS(#RIGHT);
        -;
      #CAPSLOCK;	KEYPRESS(#CAPSLOCK);
      #NUMLOCK;	KEYPRESS(#NUMLOCK);
      #SCROLLLOCK;	KEYPRESS(#SCROLLLOCK);
      #PRINTSCREEN;	KEYPRESS(#PRINTSCREEN);
      #PAUSE;	KEYPRESS(#PAUSE);
  }
  -;
  KEYPRESS -  ;		KEYPRESS(#A);
  -;
  KEYDOWN -  ;		KEYDOWN(#A);
  KEYUP -  ;		KEYUP(#A);
  -;
  KEYSTRING -  ;		KEYSTRING("str");
  -;
  GETKEYSDOWN -     ;	GETKEYSDOWN ($arr);
  GETKBLAYOUT -   ;	GETKBLAYOUT($_hwnd) //1033 En 1049 Ru;
  SETKBLAYOUT -   ;	SETKBLAYOUT($_hwnd, 1033) //1033 En 1049 Ru;
}
  

;
{
  GETSCREEN -     ;	GETSCREEN;
  GETSCREEN() -    ;	GETSCREEN(0,0,400,400);
  SCREENSHOT -    ;	SCREENSHOT;
  SCREENSHOTEX -      ;	SCREENSHOTEX(0,0, $_xmax,$_ymax, "Image_", 0);
  SCREENSHOTFIX -     ;	SCREENSHOTFIX(10,10, 50,50, ":\file.bmp", 0); 
  ;
  {
    PXL -    ;		PXL(10,10);
    SCANPXL -   ;	SCANPXL($arr, 0,0, 1250,959, 255);
    SCANPICTURE -   ;	SCANPICTURE($arr, 0,0, 1250,959, "pict.bmp", -1, 100);
    PXLCOUNT -  - ;	PXLCOUNT(10,10, 100,100, 255);
    PXLXOR -   ;	PXLXOR(10,10, 100,100);
    PXLCRC -    CRC32;	PXLCRC(10,10, 100,100);
  }
  ;
  {
    COLORMODE -  ;	COLORMODE(6, 10,10, 100,100);
    COLORGEN -  ;	COLORGEN(255,255,255);
    COLORR -  ;	COLORR(255);
    COLORG -  ;	COLORG(255);
    COLORB -  ;	COLORB(255);
  }
}

;
{
   DEFINE -  ;	DEFINE($var, 0);
   UNDEFINE -  ;	UNDEFINE($var);
   INC - / ;			INC($var,1);
   RND -   ;		RND(1,5);
   RNDFROM -   ;	RNDFROM(1,3,5);
   DIST -     ;	DIST(0,0,3,3);
   -;
   INT -        ;		INT(25.5);
   SIN - ;		SIN(45);
   COS - ;		COS(45);
   ARCSIN - ;		ARCSIN(45);
   ARCCOS - ;		ARCCOS(45);
   SQRT -  ;		SQRT(4);
   POW -   ;		POW(4,2);
   ROUND -  ;		ROUND(25.5, 0);
   -;
   ARRPUSH -     ;		ARRPUSH($arr, 123);
   ARRPOP -     ;		ARRPOP($arr);
   ARRSIZE -  ;		ARRSIZE($arr);
   TFREADARR -    ;	TFREADARR("file.txt", $arr);
   TFWRITEARR -    ;	TFWRITEARR("file.txt", $arr);
   STRSEPARATE -      ;	STRSEPARATE("1:2:3:4", ":", $arr);
}

, , ;
{
  IF - ;
  {
   IF($a = $b);	IF( );
   ELSE - ;	ELSE;
   END_IF -  ;	END_IF;
  }

  SWITCH - ;
  {
  SWITCH();	SWITCH($var);
  CASE();	CASE(1);
  DEFAULT;	DEFAULT;
  END_SWITCH;	END_SWITCH;
  }

  FOR -   ;
  {
  FOR();	FOR($a, $a < 5);
  END_CYC;	END_CYC;
  }

  WHILE -   ;
  {
  WHILE();	WHILE($var < 5);
  END_CYC;	END_CYC;
  }

  SUB - ;
  {
  SUB() - ;	SUB(mysub);
  END_SUB -  ;	END_SUB; 
  mysub() -  ;	mysub();
  }

  THREAD - ;
  {
  THREAD() - ;	THREAD(name, 1);
  END_THREAD -  ;	END_THREAD; 
  SETTHREAD -   ;	SETTHREAD (name, 0) // 0 - , 1 - , 2 - ;
  }
}

;
{
  ;
  {
    STRLEN() -  ;		STRLEN("string");
    STRCUT() -   ;		STRCUT("string", 1, 3);
    STRCUT2() -   ;		STRCUT2("string", 3, 5);
    STRFILTER() -  ;	STRFILTER("string", "set", 0);  
    STRPOS() -  ;		STRPOS("string", "substr");
    STRCONCAT() -  ;	STRCONCAT("str1", "str2");
    STRREPLACE() - ;	STRREPLACE("string", "substr1", "substr2");
    STRREADLN() -   ;	STRREADLN("input.txt", 1);
    STRWRITELN() -   ;	STRWRITELN("out.txt","str",0);
    STRMD5() -  md5  ;		STRMD5("string");
    STRSEPARATE -      ;	STRSEPARATE("1:2:3:4", ":", $arr); 
  }
  
   ;
  {
    TFREAD -   ;	TFREAD("input.txt", 1);
    TFWRITE -   ;	TFWRITE("input.txt", "string");
    TFREADARR -    ;	TFREADARR("file.txt", $arr);
    TFWRITEARR -    ;	TFWRITEARR("file.txt", $arr);
    TFCOUNT -    ;	TFCOUNT("input.txt");
    TFDELETE -    ;	TFDELETE("input.txt", 1);
    TFCLEAR -  ;	TFCLEAR("input.txt", 0);
  }
  SETVAR -      ;	SETVAR ("$var", 1);
  GETVAR -      ;	$tmp = GETVAR ("$var");
  FROMCLIP() -  ;	FROMCLIP();
  TOCLIP -   ;	TOCLIP("string");
  HTTPGET - Web-;	HTTPGET("url");
  INIREAD -    INI ;	INIREAD("config.ini", "parname", "SECTION1");
  INIWRITE -    INI ;	INIWRITE("config.ini", "parname", "value", "SECTION1");
}


WinAPI;
{
  HGET() -  HWND  ;		HGET(10,10);
  HSET - /  ;			HSET(12345,1);
  HGETTEXT() -    ;	HGETTEXT(12345);
  HSETTEXT -    ;		HSETTEXT(12345, "text");
  WNDFIND() -    ;	WNDFIND(" ", 0);
  WNDPOS -  ;		WNDPOS(12345,10,10);
  WNDSIZE -   ;		WNDSIZE(12345,10,10);
  WNDSTATE - / ;	WNDSTATE(12345, 1);
  WNDGETINFO -  -  ;	WNDGETINFO(12345, $var1, $var2, $var3, $var4);
  WNDSETINFO -  -  ;	WNDSETINFO(12345, $var1, $var2, $var3, $var4);
  WNDBUMP -     ;	WNDBUMP(12345);
  SENDMESSAGE -   ;	SENDMESSAGE(12345,123,0,0);
  POSTMESSAGE -   ;	POSTMESSAGE(12345,123,0,0);
}

Log;
{
  LOGWRITE -   ;	LOGWRITE ("");
  LOGCLEAR -  ;	LOGCLEAR;
  LOGSHOW -  ;	LOGSHOW (1, 100,100);
}

;
{
  SOUND -  WAV ;	SOUND("play.wav");
  BEEP -  ;		BEEP(800,200);
  HINTPOPUP -  ;	HINTPOPUP("", "");
}

;
{
   50 ;	WAITMS(50);
   100 ;	WAITMS(100);
   300 ;	WAITMS(300);
   500 ;	WAITMS(500);
   1 ;		WAIT(1);
   1 ;		WAIT(60);
   5 ;		WAIT(300);
   10 ;		WAIT(600);
   15 ;		WAIT(900);
   30 ;		WAIT(1800);
   1 ;		WAIT(3600);
}

 ;
{
  $_xmouse -   X;	$_xmouse;
  $_ymouse -   Y;	$_ymouse;
  $_xmax -  ;	$_xmax;
  $_ymax -  ;	$_ymax;
  $_return1;	$_return1;
  $_return2;	$_return2;
  $_cursor -  ;	$_cursor;
  $_ms -  ;		$_ms;
  $_time_t -  Unix;	$_time_t;
  $_time_h -  ;	$_time_h;
  $_time_m -  ;	$_time_m;
  $_time_s -  ;	$_time_s;
  $_date_y -  ;	$_date_y;
  $_date_m -  ;	$_date_m;
  $_date_d -  ;	$_date_d;
  $_hwnd -  HWND;	$_hwnd;
}

;
{
  Name -  ;	#name " v1.2";
  Include -     ;	#include "mylib.cms";
  LogFile -    ;	#logfile;
  Autorun - ;	#autorun;
   PS/2 ;	#ps2_mouse;
   PS/2 ;	#ps2_keyboard;
  Define -  ;	#define find:replace;
  -;
  EXECUTE -   ;	EXECUTE("some.bat");
  INPUTBOX -    ;	INPUTBOX("message", "10", 10);
  DIALOGBOX -    ;	$dialog = DIALOGBOX(" ", 1, 2);
  RADIOBOX -    ;	$res = RADIOBOX(" ", "1 ", "2 ", "3 ");
  GETFILELIST -     ;	 GETFILELIST($arr, "C:\*.*");
  GETDIRLIST -     ;	 GETDIRLIST($arr, "C:\*");
  skip: - ;	skip:;
  GOTO(skip) -   ;		GOTO(skip);
  HALT - ;		HALT;
  HALT(1) -    ;		HALT(1);
}
  
  
; //=============================================;
